home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / TIMETEST.PAS < prev    next >
Pascal/Delphi Source File  |  1985-08-12  |  411b  |  21 lines
  1. {
  2. Program TIMETEST to demonstrate the use of the TIME function
  3. contained in TIME.INC
  4.  
  5. Source: "TIME: A Function To Measure Elapsed Time", TUG Lines Volume I, Issue 3
  6. Author: Herb Holden
  7. Application: PC-DOS/MS-DOS
  8. }
  9.  
  10. program timetest;
  11.  
  12. var t1,t2,x:  real;
  13.           i:  integer;
  14. (*$I time.inc *)
  15. begin
  16. t1:=time;
  17. for i:=1 to 1000 do x:=3.21*6.54;
  18. t2:=time;
  19. writeln( 'Time: ', t2-t1:6:2)
  20. end.
  21.